Shareware Overload Trio 2/Shareware Overload Trio Volume 2 (Chestnut CD-ROM).ISO/dir42/card_ce.zip/PROCURA.PRG

Text File | 1994-07-23 | 2KB | 77 lines

use card
* use b:card
stor spac(15) to compp, fnamep, lnamep, teamp
stor spac(4) to yearp, cardnp
set color to r+
@ 06,20 say 'Company Name.......(A)--> ' get compp pict '!!!!!!!!!!!!!!!'
@ 08,20 say 'Year...............(B)--> ' get yearp
@ 10,20 say 'Player First Name..(C)--> ' get fnamep pict '!!!!!!!!!!!!!!!'
@ 12,20 say 'Playes Last Name...(D)--> ' get lnamep pict '!!!!!!!!!!!!!!!'
@ 14,20 say 'Team Name..........(E)--> ' get teamp pict '!!!!!!!!!!!!!!!'
@ 16,20 say 'Card Number........(F)--> ' get cardnp pict '!!!!'
@ 21,01 say 'For combination -- 1 (A/B)  2 (A/D)  3 (A/B/D)  4 ì
(A/B/F)  Q (Go to MAIN MENU)'
set color to w+
@ 02,30 say 'S E A R C H  C A R D'
set color to gr+
@ 06,40 say 'A'
@ 08,40 say 'B'
@ 10,40 say 'C'
@ 12,40 say 'D'
@ 14,40 say 'E'
@ 16,40 say 'F'
@ 21,20 say '1'
@ 21,29 say '2'
@ 21,38 say '3'
@ 21,49 say '4'
@ 21,60 say 'Q'
set color to w
stor ' ' to op
set color to g
@ 22,01 say 'Fill any or all then press letter or number for ì
search --> '
set color to gr+
read
@ 22,49 say 'SEARCH --> ' get op
set color to w+
read
if uppe(op) = "Q"
    clear gets
    return
endif
if uppe(op) = "A"
    loca for comp=compp
endif
if uppe(op) = "B"
    loca for year=yearp
endif
if uppe(op) = "C"
    loca for fname=fnamep
endif
if uppe(op) = "D"
    loca for lname=lnamep
endif
if uppe(op) = "E"
    loca for team=teamp
endif
if uppe(op) = "F"
    loca for cardn=cardnp
endif
if uppe(op) = "1"
    loca for comp=compp .and. year=yearp
endif
if uppe(op) = "2"
    loca for comp=compp .and. lname=lnamep
endif
if uppe(op) = "3"
    loca for comp=compp .and. year=yearp .and. lname=lnamep
endif
if uppe(op) = "4"
    loca for comp=compp .and. year=yearp .and. cardn=cardnp
endif
do while .not. eof()
    do mostra
        cont
    endif
enddo
return